home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / DATADICT / EDDDFORM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-20  |  3.2 KB  |  131 lines
  1. unit Edddform;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, DB, DBTables;
  8.  
  9. type
  10.   TEditDDForm = class(TForm)
  11.     Label6: TLabel;
  12.     Label16: TLabel;
  13.     Label21: TLabel;
  14.     MemoIDX_EXPRES: TDBMemo;
  15.     MemoHELP: TDBMemo;
  16.     MemoFORMULA: TDBMemo;
  17.     DBNavigator: TDBNavigator;
  18.     Label2: TLabel;
  19.     FontButton: TButton;
  20.     B_resize: TButton;
  21.     CheckBox1: TCheckBox;
  22.     GroupBox1: TGroupBox;
  23.     EditTABLE_NAME: TDBEdit;
  24.     EditFIELD_NAME: TDBEdit;
  25.     Label1: TLabel;
  26.     Label3: TLabel;
  27.     Label8: TLabel;
  28.     EditFIELD_LEN: TDBEdit;
  29.     EditFIELD_DEC: TDBEdit;
  30.     Label4: TLabel;
  31.     CheckBoxREQUIRED: TDBCheckBox;
  32.     CheckBoxMDX: TDBCheckBox;
  33.     CheckBoxHASLINK: TDBCheckBox;
  34.     CheckBoxIS_CALC: TDBCheckBox;
  35.     GroupBox2: TGroupBox;
  36.     GroupBox3: TGroupBox;
  37.     Label9: TLabel;
  38.     MemoDEFINE: TDBMemo;
  39.     Label13: TLabel;
  40.     MemoNOTES: TDBMemo;
  41.     Label15: TLabel;
  42.     EditSCR_PROMPT: TDBEdit;
  43.     Label10: TLabel;
  44.     EditDEFAULT: TDBEdit;
  45.     LEditMask: TLabel;
  46.     EditEDITMASK: TDBEdit;
  47.     Label12: TLabel;
  48.     MemoVALIDVALUE: TDBMemo;
  49.     Label18: TLabel;
  50.     EditSRCLINKTBL: TDBEdit;
  51.     Label19: TLabel;
  52.     EditSRCLINKFLD: TDBEdit;
  53.     Label14: TLabel;
  54.     EditHINT: TDBEdit;
  55.     FontDialog1: TFontDialog;
  56.     DataSource1: TDataSource;
  57.     Table1: TTable;
  58.     GroupBox4: TGroupBox;
  59.     DataTypeListBox: TListBox;
  60.     B_link: TBitBtn;
  61.     B_idx: TBitBtn;
  62.     B_calc: TBitBtn;
  63.     procedure FormCreate(Sender: TObject);
  64.     procedure CheckBoxREQUIREDClick(Sender: TObject);
  65.     procedure CheckBoxHASLINKClick(Sender: TObject);
  66.     procedure B_linkClick(Sender: TObject);
  67.   private
  68.     { Private declarations }
  69.   public
  70.     { Public declarations }
  71.   end;
  72.  
  73. var
  74.   EditDDForm: TEditDDForm;
  75.  
  76. implementation
  77.  
  78. {$R *.DFM}
  79. {procedure TEditDDForm.FormActivate(Sender: TObject);
  80. begin
  81.   DDedit.caption := 'Editing '+main.ddListBox.items[0];
  82.   main.sourcedatabase.close;
  83.   main.SourceDatabase.Params.clear;
  84.   main.SourceDatabase.Params.Add('PATH='+main.DDPathName);
  85.   main.SourceDatabase.open;
  86.   DataSource1.DataSet:= main.dicttable;
  87.   main.dicttable.Active:= True;
  88.   main.dicttable.fields[0].required := true;
  89.   main.dicttable.FieldDefs.UpDate;
  90.   main.dicttable.edit;
  91.   show;
  92. end;}
  93.  
  94. procedure TEditDDForm.FormCreate(Sender: TObject);
  95. begin
  96.   with DataTypeListBox.items do begin
  97.     clear;
  98.     add('C : Character field');
  99.     add('N : Numeric field');
  100.     add('L : Boolean field');
  101.     add('D : Date field');
  102.     add('M : Memo field');
  103.     end;
  104. end;
  105.  
  106. procedure TEditDDForm.CheckBoxREQUIREDClick(Sender: TObject);
  107. begin
  108. {   If CheckBoxRequired.valueChecked
  109.      then CheckBoxRequired := 'Is Required.'
  110.      else CheckBoxRequired := 'Is not Required.'}
  111. end;
  112.  
  113. procedure TEditDDForm.CheckBoxHASLINKClick(Sender: TObject);
  114. begin
  115. {   If CheckBoxHASLINK.valueChecked
  116.      then begin
  117.        CheckBoxHASLINK := 'Is Linked to ';
  118.        B_link.enabled := true;
  119.        end;
  120.      else CheckBoxHASLINK := 'Has no link.';}
  121.  
  122. end;
  123.  
  124. procedure TEditDDForm.B_linkClick(Sender: TObject);
  125. begin
  126.   {Edit_memo( tdbmemo(sender), EditTable_Name.text, EditField_name.text );}
  127.  
  128. end;
  129.  
  130. end.
  131.